home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO35.MNU < prev    next >
Encoding:
Text File  |  1986-11-01  |  940 b   |  31 lines
  1. [CIRtoCIR]^C^C+
  2. (Setq R3 (Getreal "Enter fillet radius: "));\+
  3. (Setq C1 (Osnap (Setq E1 (Osnap (Getpoint+
  4. "Touch 1st circle: ")"Nea"))"Cen"));\+
  5. (Setq C2 (Osnap (Setq E2 (Osnap (Getpoint+
  6. "Touch 2nd circle: ")"Nea"))"Cen"));\+
  7. (Setq CC (Distance C1 C2));+
  8. (Setq EE (Distance E1 E2));+
  9. (Setq A1 (Angle C1 C2));+
  10. (Setq R1 (Distance C1 E1));+
  11. (Setq R2 (Distance C2 E2));+
  12. (Setq X (If (> EE CC) (- R3 R1) (+ R3 R1)));+
  13. (Setq Y (If (< EE CC) (+ R3 R2) (- R3 R2)));+
  14. (Setq COSA (/ (- (+ (* X X) (* CC CC)) +
  15. (* Y Y)) (* 2 X CC)));
  16. [continue]+
  17. (Setq B (* COSA X));+
  18. (Setq Z (- CC B));+
  19. (Setq B1 (Abs Z));+
  20. (Setq A (Sqrt (- (* X X) (* B B))));+
  21. (Setq A2 (Abs (Atan (/ A B))));+
  22. (Setq A3 (Atan (/ A B1)));+
  23. (Setq A4 (If (< EE CC) (+ A1 A2)+
  24. (If (> Z 0)+
  25. (+ A1 Pi A3)(- A1 A3))));+
  26. Arc;C;(If (< EE CC) (Polar C1 A4 X)+
  27. (Polar C2 A4 Y));+
  28. (If (< EE CC) (Polar C1 A4 R1)+
  29. (Polar C2 (+ A4 Pi) R2));+
  30. (If (< EE CC) C2 C1);
  31.